home *** CD-ROM | disk | FTP | other *** search
/ Champak 33 / Volume 33 - JOGO DISK .iso / Games / protect_the_fire.swf / scripts / DefineSprite_278 / frame_1 / DoAction.as
Encoding:
Text File  |  2007-01-15  |  1.7 KB  |  45 lines

  1. i = "1";
  2. radius = "38";
  3. r2 = radius * radius;
  4. while(i < eval("/:rafts"))
  5. {
  6.    k = i + "1";
  7.    if(eval("../raft" add i add "/:destroyed") == "0")
  8.    {
  9.       while(eval("/:rafts") >= k)
  10.       {
  11.          if(eval("../raft" add k add "/:destroyed") == "0")
  12.          {
  13.             deltax = getProperty("../raft" add i, _X) - getProperty("../raft" add k, _X);
  14.             deltay = getProperty("../raft" add i, _Y) - getProperty("../raft" add k, _Y);
  15.             dist = deltax * deltax + deltay * deltay;
  16.             if(r2 >= dist)
  17.             {
  18.                tempx = eval("../raft" add i add "/:xval");
  19.                tempy = eval("../raft" add i add "/:yval");
  20.                set("../raft" add i add "/:xval",eval("../raft" add k add "/:xval"));
  21.                set("../raft" add i add "/:yval",eval("../raft" add k add "/:yval"));
  22.                set("../raft" add k add "/:xval",tempx);
  23.                set("../raft" add k add "/:yval",tempy);
  24.                ix = eval("../raft" add i add "/:xval");
  25.                iy = eval("../raft" add i add "/:yval");
  26.                kx = tempx;
  27.                ky = tempy;
  28.                if(kx * ix < "0")
  29.                {
  30.                   setProperty("../raft" add k, _X, getProperty("../raft" add k, _X) + tempx);
  31.                   setProperty("../raft" add i, _X, getProperty("../raft" add i, _X) + eval("../raft" add i add "/:xval"));
  32.                }
  33.                if(ky * iy < "0")
  34.                {
  35.                   setProperty("../raft" add k, _Y, getProperty("../raft" add k, _Y) + tempy);
  36.                   setProperty("../raft" add i, _Y, getProperty("../raft" add i, _Y) + eval("../raft" add i add "/:yval"));
  37.                }
  38.             }
  39.          }
  40.          k += "1";
  41.       }
  42.    }
  43.    i += "1";
  44. }
  45.